MacHome 2001 May/MacHome CD (May 2001).iso/mac/Stuff/Software/Graphic/iView Multimedia 3.8.6/AppleScript Support/iView-FileMaker scripts

Text File | 1999-12-20 | 1.3 KB | 55 lines | [TEXT/ToyS]

----
import()
----

------
on import()
    -- loop on all items
    repeat with i from 1 to 16
        tell application "FileMaker Pro"
            tell window 1
                set mediaAuthor to cell "Author" of record i
            end tell
        end tell
        tell application "iView Multimedia 3.7.1"
            tell window 1
                set the annotations of object i to {writer:mediaAuthor}
            end tell
        end tell
    end repeat
end import

-----
on export()

    tell application "iView Multimedia 3.7.1"
        set numItems to the count of objects of window 1
    end tell

    -- loop on all items
    repeat with i from 1 to 16

        tell application "iView Multimedia 3.7.1"
            tell window 1
                set mediaName to the name of object i as text
                set mediaAnno to the annotations of object i
                set mediaCaption to the caption of mediaAnno as text
                set mediaAuthor to the writer of mediaAnno as text
                set mediaHeadline to the headline of mediaAnno as text
            end tell
        end tell

        tell application "FileMaker Pro"
            tell window 1
                set record i to {mediaName, mediaCaption, mediaAuthor, mediaHeadline}
                -- alternative, but much slower
                -- set cell "name" of record i to mediaName
                -- set cell "Caption" of record i to mediaCaption
                -- set cell "Author" of record i to mediaAuthor
                -- set cell "Headline" of record i to mediaHeadline
            end tell
        end tell

    end repeat

end export